home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 July / Ahoy_Magazine_87-07_1987_Double_L_Side_A.d64 / Electric Power2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  312b  |  10 lines
  1. 0 rem << cd43-3 >>
  2. 1 rem ==================================
  3. 2 rem    commodares problem #39-2 :
  4. 3 print"[147]   [197]lectric [208]ower 2"
  5. 4 rem    solution by
  6. 5 rem    david hoffner
  7. 6 rem ==================================
  8. 10 inputa:b=2.79-.1259*(a-12)*(a>12)+.0207*(a>90)*(a-90)+.0124*(a>600)*(a-600)
  9. 20 print int(100*b+.5)/100
  10.